object ReadMessageForm: TReadMessageForm Left = 6 Top = 164 AutoScroll = False Caption = 'Read Message' ClientHeight = 417 ClientWidth = 628 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] FormStyle = fsMDIChild HelpFile = '10' Position = poDefaultPosOnly Visible = True WindowState = wsMaximized OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object Splitter1: TSplitter Left = 0 Top = 201 Width = 628 Height = 3 Cursor = crVSplit Align = alTop Beveled = False end object Panel1: TPanel Left = 0 Top = 0 Width = 628 Height = 201 Align = alTop BevelOuter = bvNone TabOrder = 0 object Panel2: TPanel Left = 0 Top = 0 Width = 628 Height = 29 Hint = 'Standard Mail - NetMail sends one message to multiple recipients' + #13#10'Mailing List - NetMail sends personalized messages to multiple' + ' recipients' Align = alTop BevelOuter = bvNone ParentShowHint = False ShowHint = True TabOrder = 0 object SBSend: TSpeedButton Left = 1 Top = 3 Width = 70 Height = 24 Caption = 'Send' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0000377777777777777707FFFFFFFFFFFF70773FF33333333F770F77FFFFFFFF 77F07F773FFFFFFF77F70FFF7700000000007F337777777777770FFFFF0FFFFF FFF07F333F7F3FFFF3370FFF700F0000FFF07F3F777F777733370F707F0FFFFF FFF07F77337F3FFFFFF7007EEE0F000000F077FFFF7F777777370777770FFFFF FFF07777777F3FFFFFF7307EEE0F000000F03773FF7F7777773733707F0FFFFF FFF03337737F3FFF33373333700F000FFFF03333377F77733FF73333330FFFFF 00003333337F3FF377773333330F00FF0F033333337F77337F733333330FFFFF 00333333337FFFFF773333333300000003333333337777777333} NumGlyphs = 2 ParentFont = False OnClick = SBSendClick end object MailLaterBtn: TSpeedButton Left = 160 Top = 3 Width = 70 Height = 24 Caption = 'Save' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070 7700333333337777777733333333008088003333333377F73377333333330088 88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000 000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039 99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 ParentFont = False OnClick = MailLaterBtnClick end object SBCancel: TSpeedButton Left = 230 Top = 3 Width = 70 Height = 24 Caption = 'Cancel' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333999993333333333F77777FFF333333999999999 33333337777FF377FF3333993370739993333377FF373F377FF3399993000339 993337777F777F3377F3393999707333993337F77737333337FF993399933333 399377F3777FF333377F993339903333399377F33737FF33377F993333707333 399377F333377FF3377F993333101933399377F333777FFF377F993333000993 399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399 99333773FF777F777733339993707339933333773FF7FFF77333333999999999 3333333777333777333333333999993333333333377777333333} NumGlyphs = 2 ParentFont = False OnClick = SBCancelClick end object SpeedButton1: TSpeedButton Left = 71 Top = 3 Width = 89 Height = 24 Hint = 'Select email addresses from mailing list database' Caption = 'Addressbook' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333333333C3333333333333337F3333333333333C0C3333 333333333777F33333333333C0F0C3333333333377377F333333333C0FFF0C33 3333333777F377F3333333CCC0FFF0C333333373377F377F33333CCCCC0FFF0C 333337333377F377F3334CCCCCC0FFF0C3337F3333377F377F33C4CCCCCC0FFF 0C3377F333F377F377F33C4CC0CCC0FFF0C3377F3733F77F377333C4CCC0CC0F 0C333377F337F3777733333C4C00CCC0333333377F773337F3333333C4CCCCCC 3333333377F333F7333333333C4CCCC333333333377F37733333333333C4C333 3333333333777333333333333333333333333333333333333333} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = AddBookBtnClick end object Bevel1: TBevel Left = 311 Top = 4 Width = 220 Height = 23 Hint = 'Standard Mail - NetMail sends one message to multiple recipients' + #13#10'Mailing List - NetMail sends personalized messages to multiple' + ' recipients' end object RBBulkemail: TRadioButton Left = 320 Top = 8 Width = 110 Height = 17 Hint = 'Standard Mail - NetMail sends one message to multiple recipients' + #13#10'Mailing List - NetMail sends personalized messages to multiple' + ' recipients' Caption = 'Standart Mail' Checked = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 TabStop = True OnClick = RBBulkemailClick OnKeyUp = RBBulkemailKeyUp end object RBSinglemaillist: TRadioButton Left = 433 Top = 8 Width = 96 Height = 16 Hint = 'Standard Mail - NetMail sends one message to multiple recipients' + #13#10'Mailing List - NetMail sends personalized messages to multiple' + ' recipients' Caption = 'Mailing list' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = RBSinglemaillistClick OnKeyUp = RBSinglemaillistKeyUp end object Panel5: TPanel Left = 539 Top = 0 Width = 89 Height = 29 Align = alRight BevelOuter = bvNone TabOrder = 2 object ExplorerButton5: TExplorerButton Left = 23 Top = 2 Width = 64 Height = 24 NoFocusBitmap.Data = { 96010000424D9601000000000000760000002800000014000000180000000100 0400000000002001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777700007777777777777777777700007777777777777777777700007777 7777777777777777000077777777777777777777000000007EEEEEEEEEEE0000 0000777076666666666008770000777076666666666008770000777076666666 666008770000777076B666666660087700007770766666666660087700007770 76B66666666008770000777076B66666666008770000777076B6666666600877 0000777076666666666008770000777076666666666008770000777076666666 6660087700007770766666666660087700007770766666666660087700007770 7666666666600877000077707666666666600877000077707777777777770877 0000777000000000000008770000777777777777777777770000} Bitmap.Data = { 96010000424D9601000000000000760000002800000016000000180000000100 0400000000002001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777007777777777777777770007007777777777777777706607007777 7777777777770666070077777777777777706666070000007777777777066666 07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE EE6666B607007770EEEEEEEEEE6666B607007770EEEEEEEEEE6666B607007770 EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEEEE666666 07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE EE66667707007770EEEEEEEEEE66670077007770EEEEEEEEEE66707777007770 EEEEEEEEEE67087777007770EEEEEEEEEE700877770077700000000000000877 7700777000000000000007777700777777777777777777777700} Caption = 'Close' DisabledBitmap.Data = { 96010000424D9601000000000000760000002800000016000000180000000100 0400000000002001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777007777777777777777770007007777777777777777706607007777 7777777777770666070077777777777777706666070000007777777777066666 07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE EE6666B607007770EEEEEEEEEE6666B607007770EEEEEEEEEE6666B607007770 EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEEEE666666 07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE EE66667707007770EEEEEEEEEE66670077007770EEEEEEEEEE66707777007770 EEEEEEEEEE67087777007770EEEEEEEEEE700877770077700000000000000877 7700777000000000000007777700777777777777777777777700} Layout = blBitmapLeft Options = [boMonoDisplay, boPopupMark, boShowBevel] Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnClick = SBCancelClick ParentFont = False IBitmap = { 424D560A00000000000036000000280000001F0000001B000000010018000000 0000200A0000000000000000000000000000000000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFF000000BFBFBF BFBFBFBFBFBFBFBFBFBFBFBFFFFFFF7F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000 BFBFBFBFBFBFBFBFBFFFFFFF7F7F7F7F7F7F7F7F7FFFFFFFFFFFFFFFFFFFFFFF FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF 000000BFBFBFFFFFFF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FFFFF FFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBF00000000 0000000000000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFF0000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F 7F7F7F7FFFFFFFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF0000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F 7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFF7F7F7F7F7F7F7F7F7FBFBFBFBFBFBF7F7F7F7F7F 7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000FFFFFF7F7F7F7F7F7FBFBFBFBFBFBFBFBFBF7F7F 7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000 FFFFFFFFFFFFFFFFFF000000000000FFFFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBF BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBF7F7F 7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F 7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F 7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F 7FFFFFFFFFFFFFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000BFBFBFFFFFFF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFFFFFFFFFFFFFFFFFFFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000BFBFBF FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000 BFBFBFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000 000000BFBFBFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000000000000000000000000000000000000000000000000000 000000000000BFBFBF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBF000000000000000000000000000000000000000000000000000000 000000000000000000000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF000000} end end end object Panel3: TPanel Left = 0 Top = 29 Width = 628 Height = 172 Align = alClient BevelOuter = bvNone TabOrder = 1 object Panel9: TPanel Left = 0 Top = 0 Width = 628 Height = 120 Align = alClient BevelOuter = bvNone Caption = 'Panel9' TabOrder = 0 object Panel10: TPanel Left = 0 Top = 0 Width = 622 Height = 120 Align = alClient BevelOuter = bvNone TabOrder = 0 object Splitter2: TSplitter Left = 0 Top = 66 Width = 622 Height = 2 Cursor = crVSplit Align = alBottom Beveled = False end object Panel8: TPanel Left = 0 Top = 93 Width = 622 Height = 27 Align = alBottom BevelOuter = bvNone Caption = 'Panel8' TabOrder = 0 object MemoBcc: TMemo Left = 55 Top = 0 Width = 567 Height = 27 Align = alClient BorderStyle = bsNone Ctl3D = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentCtl3D = False ParentFont = False TabOrder = 0 end object StaticText3: TStaticText Left = 0 Top = 0 Width = 55 Height = 27 Align = alLeft Caption = ' bcc: ' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False TabOrder = 1 end end object Panel7: TPanel Left = 0 Top = 68 Width = 622 Height = 25 Align = alBottom BevelOuter = bvNone Caption = 'Panel7' TabOrder = 1 object MemoCC: TMemo Left = 55 Top = 0 Width = 567 Height = 25 Align = alClient BorderStyle = bsNone Ctl3D = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentCtl3D = False ParentFont = False TabOrder = 0 end object StaticText2: TStaticText Left = 0 Top = 0 Width = 55 Height = 25 Align = alLeft Caption = ' cc: ' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False TabOrder = 1 end end object Panel6: TPanel Left = 0 Top = 0 Width = 622 Height = 66 Align = alClient BevelOuter = bvNone Caption = 'Panel6' TabOrder = 2 object MemoTO: TMemo Left = 55 Top = 0 Width = 567 Height = 66 Align = alClient BorderStyle = bsNone Ctl3D = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentCtl3D = False ParentFont = False TabOrder = 0 end object StaticText1: TStaticText Left = 0 Top = 0 Width = 55 Height = 66 Align = alLeft Caption = ' e.mail ' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False TabOrder = 1 end end end object Panel11: TPanel Left = 622 Top = 0 Width = 6 Height = 120 Align = alRight BevelOuter = bvNone Color = clSilver TabOrder = 1 end end object Panel4: TPanel Left = 0 Top = 120 Width = 628 Height = 52 Align = alBottom BevelOuter = bvNone Color = clSilver TabOrder = 1 object Label4: TLabel Left = 4 Top = 9 Width = 39 Height = 13 Caption = 'Subject:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label5: TLabel Left = 4 Top = 31 Width = 62 Height = 13 Caption = 'Attachments:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object SpeedButton4: TSpeedButton Left = 301 Top = 28 Width = 30 Height = 22 Caption = '...' OnClick = SpeedButton4Click end object SpeedButton2: TSpeedButton Left = 332 Top = 28 Width = 85 Height = 22 Caption = 'View Attach.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = SpeedButton2Click end object AttachmentsLB: TComboBox Left = 72 Top = 28 Width = 229 Height = 22 Style = csOwnerDrawFixed Ctl3D = False DropDownCount = 16 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 ParentCtl3D = False ParentFont = False TabOrder = 0 OnDrawItem = AttachmentsLBDrawItem end object SubjectEdt: TEdit Left = 56 Top = 5 Width = 361 Height = 19 BorderStyle = bsNone Ctl3D = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentCtl3D = False ParentFont = False TabOrder = 1 end end end end object Memo1: TRichEdit Left = 0 Top = 253 Width = 628 Height = 164 Align = alClient BorderStyle = bsNone Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ScrollBars = ssVertical TabOrder = 1 OnChange = Memo1Change OnSelectionChange = Memo1SelectionChange end object Panel12: TPanel Left = 0 Top = 204 Width = 628 Height = 49 Align = alTop TabOrder = 2 Visible = False object Ruler: TPanel Left = 1 Top = 27 Width = 626 Height = 21 Align = alClient Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Ruler' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 object FirstInd: TLabel Left = 2 Top = 2 Width = 10 Height = 9 AutoSize = False Caption = '�' DragCursor = crArrow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Wingdings' Font.Style = [] ParentFont = False end object LeftInd: TLabel Left = 2 Top = 12 Width = 10 Height = 11 AutoSize = False Caption = '�' DragCursor = crArrow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Wingdings' Font.Style = [] ParentFont = False end object RulerLine: TBevel Left = 4 Top = 10 Width = 579 Height = 6 Shape = bsTopLine end object RightInd: TLabel Left = 575 Top = 14 Width = 9 Height = 12 Caption = '�' DragCursor = crArrow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Wingdings' Font.Style = [] ParentFont = False end end object ToolBar: TToolBar Left = 1 Top = 1 Width = 626 Height = 26 ButtonHeight = 21 ButtonWidth = 20 Flat = True Indent = 3 ParentShowHint = False ShowHint = True TabOrder = 1 Wrapable = False object OpenButton: TToolButton Left = 3 Top = 0 Width = 20 Height = 21 Hint = 'Open|Open an existing file' Caption = 'OpenButton' ImageIndex = 0 end object SaveButton: TToolButton Left = 23 Top = 0 Width = 20 Height = 21 Hint = 'Save|Save current file' Caption = 'SaveButton' ImageIndex = 1 end object PrintButton: TToolButton Left = 43 Top = 0 Width = 20 Height = 21 Hint = 'Print|Print current file' Caption = 'PrintButton' ImageIndex = 2 end object ToolButton5: TToolButton Left = 63 Top = 0 Width = 8 Height = 21 Caption = 'ToolButton5' ImageIndex = 3 Style = tbsDivider end object UndoButton: TToolButton Left = 71 Top = 0 Width = 20 Height = 21 Hint = 'Undo|Undo the last action' Caption = 'UndoButton' Enabled = False ImageIndex = 3 end object CutButton: TToolButton Left = 91 Top = 0 Width = 20 Height = 21 Hint = 'Cut|Delete selected item' Caption = 'CutButton' ImageIndex = 4 end object CopyButton: TToolButton Left = 111 Top = 0 Width = 20 Height = 21 Hint = 'Copy|Copy selected item to clipboard' Caption = 'CopyButton' ImageIndex = 5 end object PasteButton: TToolButton Left = 131 Top = 0 Width = 20 Height = 21 Hint = 'Paste|Paste contents of clipboard' Caption = 'PasteButton' ImageIndex = 6 end object ToolButton10: TToolButton Left = 151 Top = 0 Width = 8 Height = 21 Caption = 'ToolButton10' ImageIndex = 7 Style = tbsSeparator end object ComboBox1: TComboBox Left = 159 Top = 0 Width = 145 Height = 21 Hint = 'Font Name|Select font name' Ctl3D = False ItemHeight = 13 ParentCtl3D = False TabOrder = 0 Text = 'FontName' end object ToolButton11: TToolButton Left = 304 Top = 0 Width = 8 Height = 21 Caption = 'ToolButton11' ImageIndex = 8 Style = tbsSeparator end object Edit1: TEdit Left = 312 Top = 0 Width = 731 Height = 21 Hint = 'Font Size|Select font size' TabOrder = 1 Text = '0' end object UpDown2: TUpDown Left = 1043 Top = 0 Width = 15 Height = 21 Associate = Edit1 Min = 0 Position = 0 TabOrder = 2 Wrap = False end object BoldButton: TToolButton Left = 1058 Top = 0 Width = 20 Height = 21 Hint = 'Bold' Caption = 'BoldButton' ImageIndex = 7 Style = tbsCheck end object ItalicButton: TToolButton Left = 1078 Top = 0 Width = 20 Height = 21 Hint = 'Italic' Caption = 'ItalicButton' ImageIndex = 8 Style = tbsCheck end object UnderlineButton: TToolButton Left = 1098 Top = 0 Width = 20 Height = 21 Hint = 'Underline' Caption = 'UnderlineButton' ImageIndex = 9 Style = tbsCheck end object ToolButton16: TToolButton Left = 1118 Top = 0 Width = 8 Height = 21 Caption = 'ToolButton16' ImageIndex = 12 Style = tbsDivider end object LeftAlign: TToolButton Left = 1126 Top = 0 Width = 20 Height = 21 Hint = 'Align Left' Caption = 'LeftAlign' Grouped = True ImageIndex = 10 Style = tbsCheck end object CenterAlign: TToolButton Tag = 2 Left = 1146 Top = 0 Width = 20 Height = 21 Hint = 'Center' Caption = 'CenterAlign' Grouped = True ImageIndex = 11 Style = tbsCheck end object RightAlign: TToolButton Tag = 1 Left = 1166 Top = 0 Width = 20 Height = 21 Hint = 'Align Right' Caption = 'RightAlign' Grouped = True ImageIndex = 12 Style = tbsCheck end object ToolButton20: TToolButton Left = 1186 Top = 0 Width = 8 Height = 21 Caption = 'ToolButton20' ImageIndex = 15 Style = tbsDivider end object BulletsButton: TToolButton Left = 1194 Top = 0 Width = 20 Height = 21 Hint = 'Bullets|Enter bullet mode' Caption = 'BulletsButton' ImageIndex = 13 Style = tbsCheck end end end object RGKod: TRadioGroup Left = 426 Top = 171 Width = 195 Height = 28 Columns = 2 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemIndex = 0 Items.Strings = ( 'WIN-1251' 'KOI8-R') ParentFont = False TabOrder = 3 OnClick = RGKodClick end object TMessage: TTable DatabaseName = 'VistaMail' TableName = 'DBMess.db' TableType = ttParadox Left = 32 Top = 228 object TMessagePosM: TAutoIncField FieldName = 'PosM' end object TMessageSubject: TStringField FieldName = 'Subject' Size = 100 end object TMessageAttachment: TBooleanField FieldName = 'Attachment' end object TMessageRBSinglemaillist: TBooleanField FieldName = 'RBSinglemaillist' end object TMessageInOutTrash: TIntegerField FieldName = 'InOutTrash' end object TMessageWhen: TDateTimeField FieldName = 'When' end object TMessageSost: TBooleanField FieldName = 'Sost' end object TMessageSend: TBooleanField FieldName = 'Send' end object TMessagePriority: TIntegerField FieldName = 'Priority' end object TMessageSize: TIntegerField FieldName = 'Size' end object TMessageMsgDate: TStringField FieldName = 'MsgDate' Size = 25 end object TMessageAttachStart: TIntegerField FieldName = 'AttachStart' end object TMessageAttachEnd: TIntegerField FieldName = 'AttachEnd' end object TMessagePosBegin: TIntegerField FieldName = 'PosBegin' end object TMessageSizeMessage: TIntegerField FieldName = 'SizeMessage' end object TMessageWhenSend: TDateTimeField FieldName = 'WhenSend' end object TMessageWho: TStringField FieldName = 'Who' Size = 50 end object TMessageOneAddress: TBooleanField FieldName = 'OneAddress' Visible = False end end object Tatt: TTable DatabaseName = 'VistaMail' TableName = 'dbAtt.db' TableType = ttParadox Left = 74 Top = 228 end object Ttext: TTable DatabaseName = 'VistaMail' TableName = 'dbText' TableType = ttParadox Left = 112 Top = 228 end object Tadrmes: TTable DatabaseName = 'VistaMail' TableName = 'dbadrmes' TableType = ttParadox Left = 152 Top = 228 end object Qadress: TQuery OnCalcFields = QadressCalcFields DatabaseName = 'VistaMail' SQL.Strings = ( 'select * from adress5 , dbadrmes' 'where adress5.PosA= dbadrmes.PosA and' 'dbadrmes.PosM=:a0' '') Params.Data = {0100010002613000030400000000000000} Left = 592 Top = 120 object QadressStrTypeAdress: TStringField DisplayLabel = ' ' FieldName = 'StrTypeAdress' Size = 4 Calculated = True end object QadressHomeEMail: TStringField DisplayLabel = 'Home E-Mail' DisplayWidth = 20 FieldName = 'HomeEMail' Origin = '"adress5.DB".HomeEMail' Size = 50 end object QadressLastName: TStringField DisplayLabel = 'Last Name' DisplayWidth = 20 FieldName = 'LastName' Origin = '"adress5.DB".LastName' Size = 40 end object QadressFirstName: TStringField DisplayLabel = 'First Name' DisplayWidth = 20 FieldName = 'FirstName' Origin = '"adress5.DB".FirstName' Size = 40 end object QadressTypeAdress: TSmallintField FieldName = 'TypeAdress' Origin = '"adress5.DB".TypeAdress' Visible = False end object QadressPosA: TIntegerField FieldName = 'PosA' Origin = '"adress5.DB".PosA' Visible = False end object QadressPosM: TIntegerField FieldName = 'PosM' Origin = '"adress5.DB".HomeEMail' Visible = False end object QadressPosG: TIntegerField FieldName = 'PosG' Origin = '"adress5.DB".FN' end end object QDelete: TQuery OnCalcFields = QadressCalcFields DatabaseName = 'VistaMail' Left = 630 Top = 124 end object TableIns: TTable DatabaseName = 'VistaMail' TableType = ttParadox Left = 606 Top = 80 end object QueryTMP: TQuery DatabaseName = 'VistaMail' Left = 201 Top = 225 end object QdbAtt: TQuery DatabaseName = 'VistaMail' Left = 552 Top = 97 end end